﻿Public Class Form1

  Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

  End Sub

  Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim sql As New SNCS.Client
    'Verbindung unter angabe von Adresse und Port
    sql.Connect("ServernameOderIP", 11111)

    'Verbindung zur Adresse mit Standard Port (12345)
    sql.Connect("ServernameOderIP")

    'Verbindung zu lokalem Server, unter Angabe des Ports
    sql.Connect(port:=1111)

    'Lokale Verbindung, mit Standard Port
    If sql.Connect() Then
      'Allgemeinen Wert setzen
      sql.SetValue("Mein rster Eintrag!", "Oh toll, ein Wert!")

      'Allgemeinen Wert holen
      MsgBox(sql.GetValue("Mein Erster Eintrag!"))

      'Neue Db (Kategorie) anlegen
      Dim MyDB As String = sql.GetDB("Meine DB!")

      'Wert für diese setzen
      sql.SetPrivateValue(MyDB, "Mein erster privater Eintrag!", "Noch ein Wert")

      'Und natürlich auch holen
      MsgBox(sql.GetPrivateValue(MyDB, "Mein erster privater Eintrag!"))

      'Die erste DB anzeigen lassen
      MsgBox(sql.ListDBs()(0).ToString)

      'Den ersten Wert der DB anzeigen lassen
      MsgBox(sql.ListPrivateValues(MyDB).Keys(0).ToString & " = " & sql.ListPrivateValues(MyDB).Values(0).ToString)

      'Den ersten allgemeinen Wert anzeigen
      MsgBox(sql.ListValues().Keys(0).ToString & " = " & sql.ListValues().Values(0).ToString)

      'Einen allgemeinen Wert löschen
      sql.DelValue("Mein Erster Eintrag!")

      'Einen privaten Wert löschen
      sql.DelPrivateValue(MyDB, "Mein erster privater Eintrag!")

      'Eine DB Löschen
      sql.DeleteDB(MyDB)
    End If
  End Sub
End Class
